home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / morbith.lha / GOOFY.AMS / GOOFY.amosSourceCode < prev    next >
AMOS Source Code  |  1980-01-01  |  1KB  |  44 lines
  1. Unpack 2 To 0 : Flash Off : Double Buffer : Hide 
  2. Bob 8,330,Rnd(240)+16,1 : Channel 8 To Bob 8
  3. Bob 9,Rnd(300)+10,Rnd(240)+16,4 : Channel 9 To Bob 9
  4. KOJAK=Rnd(300)+10
  5. Bob 0,KOJAK,0,14 : Channel 0 To Bob 0
  6. Bob 1,KOJAK,256,15 : Channel 1 To Bob 1
  7. Amal 8,"A 0,(1,15)(2,15)(3,15)(2,15) M -375,0,500"
  8. Amal 9,"A 1,(4,10)(5,10)(6,10)(7,10)(8,10)(9,10)(10,10)(11,10)(12,10)(11,10)(10,10)(9,10)(8,10)(7,10)(6,10)(5,10)(13,10)"
  9. Amal 0," M 0,128,50 "
  10. Amal 1," M 0,-127,50 "
  11. Amal On : A=2
  12. HIER:
  13. R=Rnd(100)
  14. If R=0 Then Gosub GOOFY
  15. If R=1 Then Gosub JENNY
  16. If R=2 Then Gosub KOJAK
  17. If Inkey$<>"" Then End 
  18. If Mouse Key Then End 
  19. Goto HIER
  20. GOOFY:
  21. Synchro Off 
  22. Bob A,330,Rnd(240)+16,1 : Channel A To Bob A
  23. Amal A,"A 0,(1,15)(2,15)(3,15)(2,15) M -375,0,500"
  24. Amal On A : A=A+1 : If A=30 Then A=0
  25. Synchro On 
  26. Return 
  27. JENNY:
  28. Synchro Off 
  29. Bob A,Rnd(300)+10,Rnd(240)+16,4 : Channel A To Bob A
  30. Amal A,"A 1,(4,10)(5,10)(6,10)(7,10)(8,10)(9,10)(10,10)(11,10)(12,10)(11,10)(10,10)(9,10)(8,10)(7,10)(6,10)(5,10)(13,10)"
  31. Amal On A : A=A+1 : If A=30 Then A=0
  32. Synchro On 
  33. Return 
  34. KOJAK:
  35. Synchro Off 
  36. KOJAK=Rnd(25) : If KOJAK<>0 Then Return 
  37. KOJAK=Rnd(300)+10
  38. Bob A,KOJAK,0,14 : Channel A To Bob A
  39. Amal A," M 0,128,50 " : A=A+1 : If A=30 Then A=0
  40. Bob A,KOJAK,256,15 : Channel A To Bob A
  41. Amal A," M 0,-127,50 " : A=A+1 : If A=30 Then A=0
  42. Amal On 
  43. Synchro On 
  44. Return